home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2003 #3 / K-CD-3-2003.ISO / WinXP Service Pack 1 / xpsp1_sv_x86.exe / pscript5.dll / 259 / 26 < prev    next >
Encoding:
Text File  |  2002-09-09  |  2.3 KB  |  33 lines
  1. %%BeginResource: file Pscript_T3Hdr 5.0 0
  2. {version cvi 2016 ge{32/FontType resourcestatus{pop pop true}{false}ifelse}
  3. {false}ifelse}exec/Is2016andT32? exch def/T32DefSBCMap{/CIDInit/ProcSet
  4. findresource begin 10 dict begin begincmap/CIDSystemInfo 3 dict dup begin
  5. /Registry(Adobe)def/Ordering(Identity1)def/Supplement 0 def end def/CMapType 0
  6. def/WMode 0 def 1 begincodespacerange<00><ff>endcodespacerange 1 begincidrange
  7. <00><ff>0 endcidrange endcmap/DrvSBCMap currentdict/CMap defineresource pop end
  8. end}bind def Is2016andT32?{T32DefSBCMap}def/T32RsrcBegin{Is2016andT32?{
  9. /BitmapFontInit/ProcSet findresource begin}if}bind def/T32RsrcEnd{Is2016andT32?
  10. {end}if}bind def/AddT32Char{6 1 roll 0 get 7 1 roll pop pop 5 1 roll pop
  11. findfont/TT32R get addglyph}bind def/AddT3Char{findfont dup 5 2 roll 1 index
  12. length 0 gt{cvx 1 index exch 4 exch put dup(imagemask)cvx cvn 5 exch put cvx}
  13. {pop cvx}ifelse 3 -1 roll/CharProcs get 3 1 roll put dup/Encoding get 5 -1 roll
  14. 4 index put/Metrics get 3 1 roll put}bind def/AddT3T32Char Is2016andT32?{
  15. /AddT32Char}{/AddT3Char}ifelse load def/GreNewFontT32{5 dict begin exch
  16. /FontMatrix exch def exch/FontBBox exch def exch pop exch pop/CIDFontType 4 def
  17. dup currentdict end/CIDFont defineresource 3 -1 roll dup/DrvSBCMap dup/CMap
  18. resourcestatus{pop pop}{T32DefSBCMap}ifelse 5 -1 roll[exch]composefont dup
  19. length dict copy dup/FID undef begin exch/TT32R exch def currentdict end
  20. definefont/BitmapFontInit/ProcSet findresource begin/TT32R get[14 0 0 0 0 0]<>0
  21. 4 -1 roll addglyph end}bind def/GreNewFontT3{11 dict begin pop/FontType 3 def
  22. /FontMatrix exch def/FontBBox exch def/Encoding exch def/CharProcs 257 dict def
  23. CharProcs/.notdef{}put/Metrics 257 dict def Metrics/.notdef 3 -1 roll put
  24. AddFontInfoBegin AddFontInfo AddFontInfoEnd/BuildChar{userdict begin/char exch
  25. def dup/charname exch/Encoding get char get def dup/Metrics get charname 2 copy
  26. known{get aload pop}{pop/.notdef get aload pop}ifelse setcachedevice begin
  27. Encoding char get CharProcs exch 2 copy known{get}{pop/.notdef get}ifelse end
  28. exec end}def currentdict end definefont pop}bind def/GreNewFont{Is2016andT32?
  29. {GreNewFontT32}{GreNewFontT3}ifelse}bind def/UDF3{Is2016andT32?{/BitmapFontInit
  30. /ProcSet findresource begin dup/CIDFont findresource removeall/CIDFont
  31. undefineresource undefinefont end}{pop UDF}ifelse}bind def
  32. %%EndResource
  33.